home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / ON.MOTION.AND.THE.HUMAN.BRAIN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  11KB  |  303 lines
  1. 175  REM  ****************************
  2. 176  REM  *  MOTION AND THE HUMAN BRAIN
  3. 177  REM  *
  4. 178  REM  *  COPYRIGHT 1986
  5. 179  REM  * 
  6. 180  REM  *  PHIL SHAPIRO
  7. 181  REM  *
  8. 182  REM  ***************************
  9. 195  HOME 
  10. 196  FOR D = 1 TO 1000: NEXT D
  11. 197  SPEED= 60: VTAB 6: HTAB 2
  12. 198  PRINT "ON  MOTION  AND  THE  HUMAN  BRAIN"
  13. 199  FOR D = 1 TO 1500: NEXT D
  14. 200  GOSUB 5000
  15. 205  HOME 
  16. 210  GOSUB 20040: PRINT : PRINT 
  17. 220  PRINT "ONE OF THE MAIN CRITICISMS LEVELLED AT"
  18. 230  GOSUB 20020: PRINT 
  19. 240  PRINT "TELEVISION IS THAT THE MEDIUM FOSTERS"
  20. 250  GOSUB 20040: PRINT 
  21. 260  PRINT "PASSIVITY.  THE VIEWER IS NOT CALLED"
  22. 270  GOSUB 20000: PRINT 
  23. 280  PRINT "UPON TO PARTICIPATE, BUT MERELY TO"
  24. 283  GOSUB 20000: PRINT "
  25. 285  PRINT "FOLLOW ALONG."
  26. 290  GOSUB 20020: PRINT 
  27. 300  PRINT "TAKEN TO A COMICAL EXTREME, "
  28. 310  GOSUB 20020: PRINT 
  29. 320  PRINT "THE VIEWER TURNS ON THE TELEVISION, "
  30. 330  GOSUB 20000: PRINT 
  31. 340  PRINT "PLUNKS DOWN IN A COMFY CHAIR, "
  32. 350  GOSUB 20000: PRINT 
  33. 360  PRINT "AND JUST ABSORBS WHATEVER LIGHT AND"
  34. 363  GOSUB 20000: PRINT 
  35. 365  PRINT "SOUND IS COMING OUT AT HIM OR HER."
  36. 370  GOSUB 20020: PRINT 
  37. 380  PRINT "     READING, ON THE OTHER HAND, "
  38. 390  GOSUB 20000: PRINT 
  39. 400  PRINT "REQUIRES A MUCH HIGHER DEGREE OF IN-"
  40. 403  GOSUB 20000: PRINT 
  41. 405  PRINT "-VOLVEMENT.   READING IS GENERALLY"
  42. 410  GOSUB 20020: PRINT 
  43. 420  PRINT "THOUGHT OF AS AN ACTIVE PURSUIT.   "
  44. 430  GOSUB 20000: PRINT 
  45. 440  PRINT "AND INDEED IT IS."
  46. 450  GOSUB 20000: PRINT 
  47. 460  PRINT "IT'S AN ACTIVE PURSUIT TO GLEAN INFOR-"
  48. 462  GOSUB 20000: PRINT 
  49. 465  PRINT "-MATION, GLEAN A MESSAGE, GLEAN IDEAS,"
  50. 467  GOSUB 20000: PRINT 
  51. 468  PRINT "GLEAN KNOWLEDGE FROM THE PRINTED WORD."
  52. 470  GOSUB 20020: PRINT 
  53. 480  PRINT "IT'S IMPOSSIBLE TO VEGETATE WHILE"
  54. 490  GOSUB 20000: PRINT 
  55. 500  PRINT "READING; EVEN WHILE READING THE MOST"
  56. 503  GOSUB 20000: PRINT 
  57. 505  PRINT "CASUAL GOSSIP IN NEWSPAPERS OR"
  58. 507  GOSUB 20000: PRINT 
  59. 509  PRINT "MAGAZINES."
  60. 510  GOSUB 20020: PRINT 
  61. 525  PRINT "     THE READER MUST HAVE THE"
  62. 530  GOSUB 20020: PRINT 
  63. 540  PRINT "CONSCIOUS WILL TO WANT TO READ."
  64. 550  GOSUB 20020: PRINT 
  65. 560  PRINT "THE READER MUST HAVE A CONSCIOUS WILL"
  66. 563  GOSUB 20000: PRINT 
  67. 565  PRINT "TO WANT TO UNDERSTAND WHAT IS BEING"
  68. 567  GOSUB 20000: PRINT 
  69. 569  PRINT "SAID.   THE READER MUST HAVE A CONSCIOUS"
  70. 583  GOSUB 20000: PRINT 
  71. 585  PRINT "WILL TO WANT TO READ EACH AND EVERY"
  72. 590  GOSUB 20020: PRINT 
  73. 600  PRINT "SENTENCE, EACH AND EVERY PARAGRAPH,"
  74. 610  GOSUB 20000: PRINT 
  75. 620  PRINT "EACH AND EVERY PAGE. "
  76. 630  GOSUB 20040: PRINT 
  77. 640  PRINT "EVERY BREAK IN THE WRITING IS AN INVIT-"
  78. 643  GOSUB 20000: PRINT 
  79. 645  PRINT "-ATION TO THE READER TO STOP READING."
  80. 650  GOSUB 20040: PRINT 
  81. 660  PRINT "   READING IS INDEED A CHORE, "
  82. 670  GOSUB 20020: PRINT 
  83. 680  PRINT "BUT A CHORE WITH THE GREATEST OF POS-"
  84. 683  GOSUB 20000: PRINT 
  85. 685  PRINT "SIBLE REWARDS."
  86. 690  GOSUB 20020: PRINT 
  87. 700  PRINT "     PHYSICALLY, READING IS MORE ACTIVE"
  88. 703  GOSUB 20000: PRINT 
  89. 705  PRINT "THAN WATCHING TELEVISION BECAUSE THE"
  90. 710  GOSUB 20000: PRINT 
  91. 720  PRINT "MUSCLES OF THE EYE ARE CALLED UPON TO"
  92. 723  GOSUB 20000: PRINT 
  93. 725  PRINT "MOVE ACROSS AND DOWN THE LINES OF A"
  94. 727  GOSUB 20000: PRINT 
  95. 729  PRINT "PAGE.   UNLIKE THE FLICKERING IMAGES ON"
  96. 730  GOSUB 20040: PRINT 
  97. 740  PRINT "A TELEVISION SCREEN, THE WORDS ON A PAGE"
  98. 750  GOSUB 20000: PRINT 
  99. 760  PRINT "JUST SIT THERE, WAITING FOR THE ROVING"
  100. 763  GOSUB 20000: PRINT 
  101. 765  PRINT "EYES TO GIVE THEM LIFE."
  102. 770  GOSUB 20020: PRINT 
  103. 780  PRINT "     BUT WHAT IF THE WORDS ON A PAGE"
  104. 783  GOSUB 20000: PRINT 
  105. 785  PRINT "DIDN'T JUST SIT THERE ?    WHAT IF THE"
  106. 790  GOSUB 20020: PRINT 
  107. 800  PRINT "WORDS ON A PAGE APPEARED AT A CONTROLLED"
  108. 803  GOSUB 20000: PRINT 
  109. 805  PRINT "SPEED ?"
  110. 810  GOSUB 20020: PRINT 
  111. 820  PRINT "THE READER WOULD NO LONGER HAVE TO MAKE"
  112. 823  GOSUB 20000: PRINT 
  113. 825  PRINT "THE CONSCIOUS DECISION TO GO ON TO THE"
  114. 827  GOSUB 20000: PRINT 
  115. 828  PRINT "NEXT SENTENCE, THE NEXT PARAGRAPH, THE"
  116. 850  GOSUB 20000: PRINT 
  117. 860  PRINT "NEXT PAGE."
  118. 870  GOSUB 20020: PRINT 
  119. 880  PRINT "     THE READER COULD DECIDE AT THE"
  120. 882  GOSUB 20000: PRINT 
  121. 884  PRINT "OUTSET THE DESIRED RATE OF SPEED AT"
  122. 886  GOSUB 20000: PRINT 
  123. 888  PRINT "WHICH THE TEXT APPEARED ON THE SCREEN."
  124. 890  GOSUB 20020: PRINT 
  125. 900  PRINT "AND THEN THE READER NEED DO NO MORE THAN"
  126. 903  GOSUB 20000: PRINT 
  127. 905  PRINT "FOLLOW ALONG."
  128. 910  GOSUB 20020: PRINT 
  129. 920  PRINT "THE WILL TO READ WOULD THEN BE SUBSTI-"
  130. 922  GOSUB 20000: PRINT 
  131. 924  PRINT "-TUTED BY A LESSER WILL, THE WILL TO"
  132. 926  GOSUB 20000: PRINT 
  133. 928  PRINT "FOLLOW."
  134. 950  GOSUB 20040: GOSUB 20000: PRINT 
  135. 960  PRINT "     UNLIKE THE PRINTED WORDS ON A PAGE"
  136. 970  GOSUB 20020: PRINT 
  137. 980  PRINT "THAT EXIST BEFORE THEY ARE READ,"
  138. 990  GOSUB 20000: PRINT 
  139. 1000  PRINT "THE WORDS FLYING ACROSS THE SCREEN OF A"
  140. 1003  GOSUB 20000: PRINT 
  141. 1005  PRINT "MONITOR COME INTO BEING BEFORE ONE'S"
  142. 1007  GOSUB 20000: PRINT 
  143. 1010  PRINT "VERY EYES."
  144. 1020  GOSUB 20020: PRINT 
  145. 1030  PRINT "     IT'S AS IF SOMEONE WERE SITTING IN"
  146. 1032  GOSUB 20000: PRINT 
  147. 1034  PRINT "A NEARBY ROOM, TYPING THE TEXT AND"
  148. 1040  GOSUB 20000: PRINT 
  149. 1050  PRINT "SENDING IT ONTO THE SCREEN OF YOUR"
  150. 1053  GOSUB 20000: PRINT 
  151. 1055  PRINT "MONITOR."
  152. 1060  GOSUB 20020: PRINT 
  153. 1070  PRINT "     BUT WHY DO WORDS APPEARING ON A"
  154. 1072  GOSUB 20000: PRINT 
  155. 1074  PRINT "MONITOR HOLD A READER'S INTEREST SO MUCH"
  156. 1080  GOSUB 20000: PRINT 
  157. 1090  PRINT "MORE THAN THE LIFELESS WORDS ON A"
  158. 1092  GOSUB 20000: PRINT 
  159. 1095  PRINT "PRINTED PAGE ?"
  160. 1100  GOSUB 20040: PRINT 
  161. 1110  PRINT "THE ANSWER IS QUITE SIMPLE : "
  162. 1120  GOSUB 20020: PRINT 
  163. 1130  PRINT "THE HUMAN BRAIN IS ATTRACTED TO MOTION. "
  164. 1140  GOSUB 20040: GOSUB 20000: PRINT 
  165. 1150  PRINT "   LOOK AT ANY CAR OF RIDERS ON A TRAIN."
  166. 1160  GOSUB 20040: PRINT 
  167. 1170  PRINT "HOW MANY ARE STARING AT THE SEAT IN"
  168. 1173  GOSUB 20000: PRINT 
  169. 1175  PRINT "FRONT OF THEM ?   AND HOW MANY ARE LOOK-"
  170. 1180  GOSUB 20000: PRINT 
  171. 1190  PRINT "-ING OUT THE WINDOW, OBSERVING THE"
  172. 1193  GOSUB 20000: PRINT 
  173. 1195  PRINT "COUNTRYSIDE FLYING BY ?"
  174. 1200  GOSUB 20020: PRINT 
  175. 1210  PRINT "   LOOK AT THE REFLEXES OF A BABY'S HEAD "
  176. 1220  GOSUB 20000: PRINT 
  177. 1230  PRINT "UPON HEARING A SOUND IN THE ROOM : "
  178. 1240  GOSUB 20000: PRINT 
  179. 1260  PRINT "TRYING TO MAKE SENSE OF WHERE IT IS"
  180. 1263  GOSUB 20000: PRINT 
  181. 1265  PRINT "COMING FROM, AND THE REASON FOR ITS"
  182. 1270  GOSUB 20000: PRINT 
  183. 1280  PRINT "EXISTENCE."
  184. 1290  GOSUB 20020: PRINT 
  185. 1300  PRINT "   THE HUMAN BRAIN HUNGERS FOR STIMULUS,"
  186. 1310  GOSUB 20020: PRINT 
  187. 1320  PRINT "AND IS ATTRACTED TO STIMULATION,"
  188. 1330  GOSUB 20020: PRINT 
  189. 1340  PRINT "AS A BEE IS ATTRACTED TO HONEY. "
  190. 1350  GOSUB 20040: PRINT 
  191. 1360  PRINT "   BUT WORDS BEING WRITTEN ACROSS A"
  192. 1363  GOSUB 20000: PRINT 
  193. 1365  PRINT "COMPUTER MONITOR HAVE AN ADDED ATTRACT-"
  194. 1370  GOSUB 20000: PRINT 
  195. 1380 : PRINT "-TION.    WORDS APPEARING ON A COMPUTER"
  196. 1390  GOSUB 20000: PRINT 
  197. 1400  PRINT "MONITOR AT A CONTROLLED RATE OF SPEED,"
  198. 1410  GOSUB 20020: PRINT 
  199. 1420  PRINT "WITH PLANNED DELAYS IN BETWEEN PHRASES"
  200. 1423  GOSUB 20000: PRINT 
  201. 1425  PRINT "AND SENTENCES, HAVE THE UNIQUE ABILITY"
  202. 1450  GOSUB 20060: GOSUB 20000: PRINT 
  203. 1460  PRINT "TO BUILD UP SUSPENSE IN"
  204. 1470  GOSUB 20020: PRINT 
  205. 1480  PRINT "THE READER'S MIND. "
  206. 1490  GOSUB 20020: PRINT 
  207. 1500  PRINT "     THE WRITER OF THE TEXT-DISPLAY"
  208. 1502  GOSUB 20000: PRINT 
  209. 1504  PRINT "PROGRAM HAS THE POWER TO CONTROL THE"
  210. 1505  GOSUB 20000: PRINT 
  211. 1506  PRINT "RATE OF SPEED AT WHICH THE WORDS APPEAR"
  212. 1510  GOSUB 20020: PRINT 
  213. 1520  PRINT "ACROSS THE SCREEN."
  214. 1525  GOSUB 20040: PRINT 
  215. 1530  PRINT "AND THE WRITER ALSO HAS THE POWER TO"
  216. 1533  GOSUB 20000: PRINT 
  217. 1535  PRINT "CHOOSE THE LOCATION AND"
  218. 1540  GOSUB 20040: PRINT 
  219. 1550  PRINT "DURATION OF THE PAUSES IN THE PRESEN-"
  220. 1560  GOSUB 20000: PRINT 
  221. 1570  PRINT "-TATION OF THE TEXT ON THE SCREEN."
  222. 1580  GOSUB 20020: PRINT 
  223. 1590  PRINT "     FOR INSTANCE, IT'S QUITE SIMPLE TO"
  224. 1593  GOSUB 20000: PRINT 
  225. 1595  PRINT "BUILD INTO THE PRESENTATION A"
  226. 1600  GOSUB 20000: PRINT 
  227. 1610  PRINT "LENGTHY PAUSE FOR "
  228. 1620  GOSUB 20020: GOSUB 20020: PRINT 
  229. 1630  PRINT "DRAMATIC EFFECT. "
  230. 1640  GOSUB 20000: PRINT 
  231. 1650  PRINT "     THE WRITER CAN LIKEWISE INCLUDE A"
  232. 1653  GOSUB 20000: PRINT 
  233. 1655  PRINT "LENGTHY DELAY AFTER SENTENCES THAT CALL"
  234. 1657  GOSUB 20000: PRINT 
  235. 1658  PRINT "FOR THOUGHT AND DIGESTION BY THE READER."
  236. 1680  GOSUB 20000: PRINT 
  237. 1690  PRINT "AND INCLUDE SHORT DELAYS FOR "
  238. 1700  GOSUB 20000: PRINT 
  239. 1710  PRINT "SENTENCES THAT REQUIRE HARDLY "
  240. 1720  GOSUB 20000: PRINT 
  241. 1730  PRINT "ANY DIGESTION AT ALL. "
  242. 1740  GOSUB 20040: PRINT 
  243. 1750  PRINT "     INDEED, THE EFECT OF HAVING WORDS"
  244. 1753  GOSUB 20000: PRINT 
  245. 1755  PRINT "APPEAR ACROSS A SCREEN CAN RESULT IN A"
  246. 1760  GOSUB 20020: PRINT 
  247. 1770  PRINT "PRESENTATION OF IDEAS NOT UNLIKE"
  248. 1780  GOSUB 20040: PRINT 
  249. 1790  PRINT "NATURAL SPEECH. "
  250. 1800  GOSUB 20040: PRINT 
  251. 1810  PRINT "   AND JUST LIKE WITH NATURAL SPEECH "
  252. 1820  GOSUB 20000: PRINT 
  253. 1830  PRINT "THERE IS A CERTAIN SUSPENSE "
  254. 1840  GOSUB 20000: PRINT 
  255. 1850  PRINT "CREATED DURING THE PAUSES IN SPEECH. "
  256. 1860  GOSUB 20020: PRINT 
  257. 1870  PRINT "THESE PAUSES AMOUNT TO AN"
  258. 1880  GOSUB 20020: PRINT 
  259. 1890  PRINT "INVITATION TO THE LISTENER,"
  260. 1900  GOSUB 20000: PRINT 
  261. 1910  PRINT "OR READER, TO ATTEMPT TO COMPLETE THE"
  262. 1940  GOSUB 20000: PRINT 
  263. 1950  PRINT "SENTENCE IN HIS OR HER OWN WORDS. "
  264. 1960  GOSUB 20040: PRINT 
  265. 1970  PRINT "THE GAME IS MADE ALL THE MORE FUN"
  266. 1980  GOSUB 20000: PRINT 
  267. 1990  PRINT "BECAUSE THE LATTER PART OF A SENTENCE IS"
  268. 2000  GOSUB 20020: PRINT 
  269. 2010  PRINT "OFTEN SUGGESTED BY THE FORMER PART."
  270. 2040  GOSUB 20020: PRINT 
  271. 2050  PRINT "    THEREFORE, EVEN THE MOST PHLEGMATIC"
  272. 2060  GOSUB 20020: PRINT 
  273. 2070  PRINT "OF READERS IS BOUND TO HAVE HIS OR HER"
  274. 2080  GOSUB 20020: PRINT 
  275. 2090  PRINT "CURIOUSITY PIQUED BY THE INHERENT"
  276. 2100  GOSUB 20020: PRINT 
  277. 2110  PRINT "SUSPENSE OF READING WORDS AS THEY"
  278. 2120  GOSUB 20020: PRINT 
  279. 2130  PRINT "APPEAR ACROSS THE SCREEN OF A"
  280. 2140  GOSUB 20020: PRINT 
  281. 2145  PRINT 
  282. 2150  PRINT "COMPUTER MONITOR. "
  283. 2160  GOSUB 20060: GOSUB 20060: PRINT : PRINT 
  284. 2170  PRINT "COPYRIGHT 1986         PHIL SHAPIRO "
  285. 2180  END 
  286. 5000  VTAB 12: PRINT "PLEASE CHOOSE A SPEED OF DISPLAY:"
  287. 5010  VTAB 14: PRINT "(TYPE IN ONE OF THE NUMBERS.)
  288. 5020  VTAB 16: HTAB 20: PRINT "1. SLOW"
  289. 5030  VTAB 18: HTAB 20: PRINT "2. MEDIUM"
  290. 5050  VTAB 20: HTAB 20: PRINT "3. FAST"
  291. 5060  VTAB 22: GET CH
  292. 5070  IF CH = 1  THEN  SPEED= 10: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  293. 5080  IF CH = 2  THEN  SPEED= 60: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  294. 5090  IF CH = 3  THEN  SPEED= 120: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  295. 5100  GOTO 5060
  296. 20000  FOR D = 1 TO 80: NEXT D
  297. 20010  RETURN 
  298. 20020  FOR D = 1 TO 300: NEXT D
  299. 20030  RETURN 
  300. 20040  FOR D = 1 TO 600: NEXT D
  301. 20050  RETURN 
  302. 20060  FOR D = 1 TO 1000: NEXT D
  303. 20070  RETURN